﻿Public Class DBRepository
    Private dc As New TanNamChinhDataContext
    Public Sub New()
        dc = GeneralClassDAL.dc
    End Sub

    Public Function BackupDatabase(ByVal strDB As String, ByVal strBackupFile As String) As Boolean
        Dim kq As Boolean = False
        'Dim dc As New TanNamChinhDataContext
        Dim query As String = String.Format("BACKUP DATABASE [{0}] To Disk ='{1}'", strDB, strBackupFile)
        If dc.ExecuteCommand(query) Then
            kq = True
        End If
        Return kq
    End Function
End Class
